%pomocnicza funkcja mniejszosci (s1, c1) < (s2, c2)
function [o] = comp(c1, s1, c2, s2)

if (s1 < s2) && (c1 ~= 0) && (c2 ~= 0)
    o = 1;
elseif (s1 > s2) && (c1 ~= 0) && (c2 ~= 0)
    o = 0;
elseif c1 < c2
    o = 1;
elseif c1 > c2
    o = 0;
end
